main :: IO ()
main = do
    a <- api "http://lesbonneschoses.prismic.io/api" Nothing
    r <- submit a $ (search "everything")
                        { searchPage     = Just 1
                        , searchPageSize = Just 10
                        }
    print r
main :: IO ()
main = do
    a <- api "http://lesbonneschoses.prismic.io/api" Nothing
    r <- submit a $ (search "everything")
                        { searchPage     = Just 1
                        , searchPageSize = Just 10
                        }
    print r
main = do
    a <- api "http://lesbonneschoses.prismic.io/api" Nothing
    r <- submit a $ (search "everything")
                        { searchPage     = Just 1
                        , searchPageSize = Just 10
                        }
    print r