Don't submit A3 online

App/Assn3.hs

@@ -15,32 +15,7 @@ import App.Activity
 import App.YamlStore
 import App.User
 import App.Prelude
-import qualified Data.Set as Set
-import qualified Data.Map as Map
-import Data.Maybe (fromJust)
 import App.Foundation
-import qualified Hedgehog.Internal.Gen as Gen
-import qualified Hedgehog.Internal.Tree as Gen ()
-import qualified Hedgehog.Internal.Seed as Gen (from)
-import qualified Hedgehog.Gen as Gen
-import Hedgehog (Gen)
-import Text.Show (showString, showParen, shows)
-import Data.Bits
-
-newtype Bit = Bit Bool
-  deriving (Eq, Enum, Bounded)
-
-instance Show Bit where
-  showsPrec _ (Bit b) = shows (fromEnum b)
-
-instance Enum (Bit, Bit) where
-  fromEnum (x,y) = 2 * fromEnum x + fromEnum y
-  toEnum i = (toEnum (i `div` 2), toEnum (i `mod` 2))
-
-instance Enum (Bit, Bit, Bit) where
-  fromEnum (x,y,z) = 4 * fromEnum x + fromEnum (y,z)
-  toEnum i = (toEnum (i `div` 4), y, z)
-    where (y,z) = toEnum (i `mod` 4)
 
 assn3 :: Activity
 assn3 =
@@ -48,7 +23,7 @@ assn3 =
 
 a3SubmittedBadge :: Widget
 a3SubmittedBadge =
-  submittedPointsBadge assn3 \uid ->
+  submittedPointsBadge assn3 \_ ->
   return False
 
 data A2GivenKey = A2GivenKey
@@ -67,8 +42,6 @@ handleU2LogicAssnR :: Handler Html
 handleU2LogicAssnR = do
   uid <- requireAuthId
   exprOpt <- runRo $ (^. at uid) <$> loadY A2GivenKey
-  let bits :: [(Bit,Bit,Bit)]
-      bits = [minBound..maxBound]
   defaultLayout $ do
     setTitle "Assignment 2: Boolean logic"
     toWidget
@@ -124,7 +97,9 @@ table.truth td {
     <tt>.circ</tt>) and also upload that below.
 
   <p>
-    <b>Submit mechanism coming soon…!
+    To submit, please just email your files and/or pics to
+    <a href="mailto:christopher.league@liu.edu">christopher.league@liu.edu
+    using the Subject: <b>CS101 A3</b>
 |]