Show
Ignore:
Timestamp:
10/03/08 01:04:54 (3 months ago)
Author:
mokehehe
Message:

Existence 型を使って書き換え

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/haskell/nario/tool/listup-imgs.hs

    r20453 r20534  
    4343 
    4444        putStrLn "module Images (ImageType(..), imageTypes, imageFn) where" 
    45         putStrLn "import Maybe" 
     45        putStrLn "import Maybe (fromJust)" 
    4646 
    4747        putStrLn $ "data ImageType = " ++ intercalate " | " symbols ++ "\tderiving (Eq)"