readStore :: String -> IO Store
readStore repo = do
    mstore <- decode <$> ByteStringL.readFile (repo </> ".issues.json")
    case mstore of
        Just store -> return store
        Nothing -> error "Failed to parse .issues.json"
readStore :: String -> IO Store
readStore repo = do
    mstore <- decode <$> ByteStringL.readFile (repo </> ".issues.json")
    case mstore of
        Just store -> return store
        Nothing -> error "Failed to parse .issues.json"
readStore repo = do
    mstore <- decode <$> ByteStringL.readFile (repo </> ".issues.json")
    case mstore of
        Just store -> return store
        Nothing -> error "Failed to parse .issues.json"