fix extraneous do clauses
commit7a64a4de2bb96f9a2d7bd6273c894c26da03de57
authorAgentM <agentm@themactionfaction.com>
dateMon 18 Sep 2017, 22:19 (9 years ago)
parent034ed44
src/bin/TutorialD/Interpreter.hs+1−1
@@ -209,7 +209,7 @@ reprLoop config sessionId conn = do
209209 reprLoop config sessionId conn
210210
211211runTutorialD :: C.SessionId -> C.Connection -> T.Text -> IO ()
212−runTutorialD sessionId conn tutd = do
212+runTutorialD sessionId conn tutd =
213213 case parseTutorialD tutd of
214214 Left err ->
215215 displayOpResult $ DisplayParseErrorResult 0 err
src/bin/TutorialD/tutd.hs+2−2
@@ -106,12 +106,12 @@ main = do
106106 eSessionId <- createSessionAtHead conn connHeadName
107107 case eSessionId of
108108 Left err -> errDie ("Failed to create database session at \"" ++ show connHeadName ++ "\": " ++ show err)
109− Right sessionId -> do
109+ Right sessionId ->
110110 case execTutDForConfig interpreterConfig of
111111 Nothing -> do
112112 printWelcome
113113 _ <- reprLoop interpreterConfig sessionId conn
114114 pure ()
115− Just tutdStr -> do
115+ Just tutdStr ->
116116 runTutorialD sessionId conn (T.pack tutdStr)
117117