hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Style

Browse Source
This commit is contained in:
hasufell 2014-10-10 17:40:25 +02:00
parent 6e4c7e47c2
commit 954b104642
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
GUI/Gtk.hs
View File

@ -261,6 +261,7 @@ saveDiag' fp mygui =
yD = (,) <$> yD = (,) <$>
readMaybe ylD' <*> readMaybe ylD' <*>
readMaybe yuD' :: Maybe (Double, Double) readMaybe yuD' :: Maybe (Double, Double)
case (xD, yD) of case (xD, yD) of
(Just xD', Just yD') -> do (Just xD', Just yD') -> do
renderCairo "out.svg" renderCairo "out.svg"

2
Parser/Meshparser.hs
View File

@ -13,7 +13,7 @@ import Parser.Core
meshToArr :: String -- ^ the string to convert meshToArr :: String -- ^ the string to convert
-> [PT] -- ^ the resulting vertice table -> [PT] -- ^ the resulting vertice table
meshToArr xs = meshToArr xs =
fmap (p2) . fmap p2 .
fmap (\(Just (x, _)) -> x) . fmap (\(Just (x, _)) -> x) .
filter (/= Nothing) . filter (/= Nothing) .
fmap (runParser parseVertice) . fmap (runParser parseVertice) .