Wed, 19 Sep 2001 19:06:06 +0100
On Wed, Sep 19, 2001 at 01:53:22PM -0400, Mark Carroll wrote:
> main = let maybe_index = maybe_read word
> in putStr (show (if maybe_index == Nothing then DP_Unknown else DP_Number index) ++ "\n")
> where (Just index) = maybe_index
> BTW, is the above a sane way of getting the 'index' 'out of' the "Just"?
> I often seem to be using a "where (Just foo) = bar" type of idiom.
I'd probably write this as something like
main = case maybe_read word of
Just index -> putStrLn $ show $ if maybe_index == Nothing
else DP_Number index
Nothing -> error "No index found"
As for let versus where, I use whatever I think looks best, which tends
to be where unless I have lots of nested ifs and cases.