fix: Strip return carriage for windows compatability

Author: mchav

src/Sabela/Output.hs

@@ -94,7 +94,7 @@ parseMarker l =
 
 parseMimeOutputs :: Text -> [(Text, Text)]
 parseMimeOutputs raw =
-    let ls = T.lines raw
+    let ls = map (T.dropWhileEnd (== '\r')) (T.lines raw)
         (finalMime, finalLines, acc) = foldl step ("text/plain", [], []) ls
         finalBlock = T.unlines (reverse finalLines)
         result =

src/Sabela/Server/Notebook.hs

@@ -82,7 +82,7 @@ loadNotebookH app _rn (LoadRequest path) = liftIO $ do
             putStrLn $ "[sabela] load rejected (path outside workspace): " ++ path
             readNotebook (appNotebook app)
         Just absPath -> do
-            raw <- TIO.readFile absPath
+            raw <- fmap (T.replace "\r\n" "\n") (TIO.readFile absPath)
             cells <-
                 mapM
                     (segmentToCell (appNotebook app))