Fix \r\n line endings.
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 12 Sep 2010 08:54:02 +0000 (08:54 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 12 Sep 2010 08:54:02 +0000 (08:54 +0000)
b18n-combined-cgi.hs

index 04b66bc..c0c826a 100644 (file)
@@ -311,8 +311,8 @@ formMain = do
             map (\what -> fmap (const what) <$> getInput (submitId what))
             [ BiDi, Get, Check, Load, EvalPut, EvalGet])
         
-       code <- fromMaybe defaultCode <$> getInput "code"
-       
+       code <- filter (/= '\r') <$> fromMaybe defaultCode <$> getInput "code"
+
         code <- case todo of
             Just Load -> do loadWhat <- getInput "loadCode"
                             return $ fromMaybe code $ loadWhat >>= flip lookup examples