haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove Hack Warning

Browse Source 
darcs-hash:20090222183603-a4fee-b9435eb4652e49092c8c3b875e72006ff03b9de2
This commit is contained in:
Henning Guenther 2009-02-22 10:36:03 -08:00
parent 9344038d33
commit 0398f66695
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Encoding/Helper/Template.hs
View File

@ -58,7 +58,7 @@ readTranslation file = do
[] -> Nothing [] -> Nothing
('#':xs) -> Nothing ('#':xs) -> Nothing
_ -> case words ln of _ -> case words ln of
(src:"#UNDEFINED":_) -> Just (read src,Nothing) -- XXX: Find a better way to handle this (src:"#UNDEFINED":_) -> Just (read src,Nothing)
(src:trg:_) -> Just (read src,Just $ chr $ read trg) (src:trg:_) -> Just (read src,Just $ chr $ read trg)
_ -> Nothing _ -> Nothing
) (lines cont) ) (lines cont)