+
+
+readInputLine' :: (MonadException m, Read r) => String -> InputT m r
+readInputLine' = liftM read . getInputLine'
+
+readInputLineWithDefault :: (MonadException m, Read r) => String -> r -> InputT m r
+readInputLineWithDefault prompt defaultValue
+ = do ret <- getInputLine prompt
+ case trim ret of
+ Just ret' -> return $ read ret'
+ Nothing -> return defaultValue
\ No newline at end of file