X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource%2FObject.hs;h=a18a268cb3504dc55badca12134cdf5883d02ed7;hp=b029e5422900b69e1b41d4459016f680a6b0dda2;hb=602cb8599101da778f6cbb043451cfa458dff89c;hpb=ddf0b4d7ab2f1e141edbc7ef75d39853c0846f8c diff --git a/Rakka/Resource/Object.hs b/Rakka/Resource/Object.hs index b029e54..a18a268 100644 --- a/Rakka/Resource/Object.hs +++ b/Rakka/Resource/Object.hs @@ -32,7 +32,7 @@ resObject env handleGet :: Environment -> PageName -> Resource () handleGet env name - = do pageM <- getPage (envStorage env) name + = do pageM <- getPage (envStorage env) name Nothing case pageM of Nothing -> foundNoEntity Nothing