Send query string instead of whole URL to GitHub

This commit is contained in:
Richard Feldman
2016-06-25 08:55:15 -07:00
parent d3b89f4d14
commit 7f55221be7
6 changed files with 12 additions and 16 deletions

View File

@@ -10,7 +10,7 @@ main =
Html.App.program
{ view = view
, update = update githubSearch
, init = ( initialModel, githubSearch (getQueryUrl initialModel.query) )
, init = ( initialModel, githubSearch (getQueryString initialModel.query) )
, subscriptions = \_ -> githubResponse decodeResponse
}