git.iko.soy/project-m36
on master help sign in
fix extraneous do clauses
7a64a4dAgentM
src/bin/TutorialD/Interpreter.hs+1−1
compare with master
unifiedsplit
@@ -209,7 +209,7 @@ reprLoop config sessionId conn = do
209 reprLoop config sessionId conn
209 reprLoop config sessionId conn
210
210
211runTutorialD :: C.SessionId -> C.Connection -> T.Text -> IO ()
211runTutorialD :: C.SessionId -> C.Connection -> T.Text -> IO ()
212−runTutorialD sessionId conn tutd = do
212+runTutorialD sessionId conn tutd =
213 case parseTutorialD tutd of
213 case parseTutorialD tutd of
214 Left err ->
214 Left err ->
215 displayOpResult $ DisplayParseErrorResult 0 err
215 displayOpResult $ DisplayParseErrorResult 0 err
src/bin/TutorialD/tutd.hs+2−2
@@ -106,12 +106,12 @@ main = do
106 eSessionId <- createSessionAtHead conn connHeadName
106 eSessionId <- createSessionAtHead conn connHeadName
107 case eSessionId of
107 case eSessionId of
108 Left err -> errDie ("Failed to create database session at \"" ++ show connHeadName ++ "\": " ++ show err)
108 Left err -> errDie ("Failed to create database session at \"" ++ show connHeadName ++ "\": " ++ show err)
109− Right sessionId -> do
109+ Right sessionId ->
110 case execTutDForConfig interpreterConfig of
110 case execTutDForConfig interpreterConfig of
111 Nothing -> do
111 Nothing -> do
112 printWelcome
112 printWelcome
113 _ <- reprLoop interpreterConfig sessionId conn
113 _ <- reprLoop interpreterConfig sessionId conn
114 pure ()
114 pure ()
115− Just tutdStr -> do
115+ Just tutdStr ->
116 runTutorialD sessionId conn (T.pack tutdStr)
116 runTutorialD sessionId conn (T.pack tutdStr)
117
117