diff --git a/pr-status.pl b/pr-status.pl
index c82b1d3..8cbb667 100755
--- a/pr-status.pl
+++ b/pr-status.pl
@@ -5618,7 +5618,7 @@ var $elm$core$Task$perform = F2(
 	});
 var $elm$browser$Browser$document = _Browser_document;
 var $author$project$Main$GotSearches = function (a) {
-	return {$: 3, a: a};
+	return {$: 4, a: a};
 };
 var $elm$json$Json$Decode$decodeString = _Json_runOnString;
 var $elm$http$Http$BadStatus_ = F2(
@@ -6410,7 +6410,7 @@ var $elm$http$Http$get = function (r) {
 var $elm$json$Json$Decode$list = _Json_decodeList;
 var $author$project$Main$Search = F2(
 	function (pull_request, title) {
-		return {B: pull_request, L: title};
+		return {w: pull_request, L: title};
 	});
 var $elm$json$Json$Decode$field = _Json_decodeField;
 var $elm$json$Json$Decode$int = _Json_decodeInt;
@@ -6430,10 +6430,10 @@ var $author$project$Main$NoOp = 0;
 var $author$project$Main$Open = 1;
 var $author$project$Main$initialModel = {
 	aR: _List_Nil,
-	y: '',
+	z: '',
 	af: {aO: 0, aM: 0.0},
 	m: false,
-	B: 0,
+	w: 0,
 	a_: '',
 	aG: _List_Nil,
 	a2: 1,
@@ -6446,7 +6446,7 @@ var $author$project$Main$init = function (_v0) {
 var $elm$core$Platform$Sub$batch = _Platform_batch;
 var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
 var $author$project$Main$GCResult = function (a) {
-	return {$: 2, a: a};
+	return {$: 3, a: a};
 };
 var $author$project$Main$WorkStatus = F2(
 	function (action, updateTime) {
@@ -6483,7 +6483,7 @@ var $author$project$Main$getGC = $elm$http$Http$get(
 		a5: '/gc'
 	});
 var $author$project$Main$GotResult = function (a) {
-	return {$: 1, a: a};
+	return {$: 2, a: a};
 };
 var $elm$json$Json$Decode$map7 = _Json_map7;
 var $author$project$Main$Complete = 0;
@@ -6504,7 +6504,7 @@ var $author$project$Main$resultDecoder = A8(
 	$elm$json$Json$Decode$map7,
 	F7(
 		function (pull_request, release, status, title, branches, searches, error) {
-			return {aR: branches, y: error, af: $author$project$Main$initialModel.af, m: false, B: pull_request, a_: release, aG: searches, a2: status, L: title, as: $author$project$Main$initialModel.as};
+			return {aR: branches, z: error, af: $author$project$Main$initialModel.af, m: false, w: pull_request, a_: release, aG: searches, a2: status, L: title, as: $author$project$Main$initialModel.as};
 		}),
 	A2($elm$json$Json$Decode$field, 'pull_request', $elm$json$Json$Decode$int),
 	A2($elm$json$Json$Decode$field, 'release', $elm$json$Json$Decode$string),
@@ -6519,15 +6519,15 @@ var $author$project$Main$resultDecoder = A8(
 		'searches',
 		$elm$json$Json$Decode$list($author$project$Main$searchDecoder)),
 	A2($elm$json$Json$Decode$field, 'error', $elm$json$Json$Decode$string));
-var $author$project$Main$getResult = function (model) {
+var $author$project$Main$getResult = function (pr) {
 	return $elm$http$Http$get(
 		{
 			aT: A2($elm$http$Http$expectJson, $author$project$Main$GotResult, $author$project$Main$resultDecoder),
-			a5: '/' + $elm$core$String$fromInt(model.B)
+			a5: '/' + $elm$core$String$fromInt(pr)
 		});
 };
 var $author$project$Main$UpdateResult = function (a) {
-	return {$: 4, a: a};
+	return {$: 5, a: a};
 };
 var $author$project$Main$getUpdate = $elm$http$Http$get(
 	{
@@ -6562,15 +6562,15 @@ var $author$project$Main$update = F2(
 			case 0:
 				return _Utils_Tuple2(
 					$author$project$Main$loadingModel,
-					$author$project$Main$getResult(model));
-			case 1:
+					$author$project$Main$getResult(model.w));
+			case 2:
 				if (msg.a.$ === 1) {
 					var err = msg.a.a;
 					return _Utils_Tuple2(
 						_Utils_update(
 							model,
 							{
-								y: 'Error: ' + $author$project$Main$httpErr(err),
+								z: 'Error: ' + $author$project$Main$httpErr(err),
 								m: false
 							}),
 						$elm$core$Platform$Cmd$none);
@@ -6578,14 +6578,14 @@ var $author$project$Main$update = F2(
 					var pr = msg.a.a;
 					return _Utils_Tuple2(pr, $elm$core$Platform$Cmd$none);
 				}
-			case 3:
+			case 4:
 				if (msg.a.$ === 1) {
 					var err = msg.a.a;
 					return _Utils_Tuple2(
 						_Utils_update(
 							model,
 							{
-								y: 'Error: ' + $author$project$Main$httpErr(err),
+								z: 'Error: ' + $author$project$Main$httpErr(err),
 								m: false
 							}),
 						$elm$core$Platform$Cmd$none);
@@ -6597,14 +6597,14 @@ var $author$project$Main$update = F2(
 							{aG: searches}),
 						$elm$core$Platform$Cmd$none);
 				}
-			case 2:
+			case 3:
 				if (msg.a.$ === 1) {
 					var err = msg.a.a;
 					return _Utils_Tuple2(
 						_Utils_update(
 							model,
 							{
-								y: 'Error: ' + $author$project$Main$httpErr(err),
+								z: 'Error: ' + $author$project$Main$httpErr(err),
 								m: false
 							}),
 						$elm$core$Platform$Cmd$none);
@@ -6616,14 +6616,14 @@ var $author$project$Main$update = F2(
 							{af: resp, m: false}),
 						$elm$core$Platform$Cmd$none);
 				}
-			case 4:
+			case 5:
 				if (msg.a.$ === 1) {
 					var err = msg.a.a;
 					return _Utils_Tuple2(
 						_Utils_update(
 							model,
 							{
-								y: 'Error: ' + $author$project$Main$httpErr(err),
+								z: 'Error: ' + $author$project$Main$httpErr(err),
 								m: false
 							}),
 						$elm$core$Platform$Cmd$none);
@@ -6635,13 +6635,13 @@ var $author$project$Main$update = F2(
 							{m: false, as: resp}),
 						$elm$core$Platform$Cmd$none);
 				}
-			case 5:
+			case 6:
 				var pr = msg.a;
 				return _Utils_Tuple2(
 					_Utils_update(
 						model,
 						{
-							B: function () {
+							w: function () {
 								var _v1 = $elm$core$String$toInt(pr);
 								if (!_v1.$) {
 									var a = _v1.a;
@@ -6652,18 +6652,23 @@ var $author$project$Main$update = F2(
 							}()
 						}),
 					$elm$core$Platform$Cmd$none);
-			case 7:
+			case 1:
+				var pr = msg.a;
+				return _Utils_Tuple2(
+					$author$project$Main$loadingModel,
+					$author$project$Main$getResult(pr));
+			case 8:
 				return _Utils_Tuple2($author$project$Main$loadingModel, $author$project$Main$getGC);
 			default:
 				return _Utils_Tuple2($author$project$Main$loadingModel, $author$project$Main$getUpdate);
 		}
 	});
-var $author$project$Main$CollectGarbage = {$: 7};
+var $author$project$Main$CollectGarbage = {$: 8};
 var $author$project$Main$RunSearch = {$: 0};
 var $author$project$Main$SetPR = function (a) {
-	return {$: 5, a: a};
+	return {$: 6, a: a};
 };
-var $author$project$Main$UpdateBackend = {$: 6};
+var $author$project$Main$UpdateBackend = {$: 7};
 var $rtfeldman$elm_css$VirtualDom$Styled$Node = F3(
 	function (a, b, c) {
 		return {$: 0, a: a, b: b, c: c};
@@ -8473,7 +8478,7 @@ var $rtfeldman$elm_css$Css$Internal$lengthConverter = F3(
 			aj: 0,
 			Q: 0,
 			R: 0,
-			z: 0,
+			A: 0,
 			ak: 0,
 			J: numericValue,
 			ap: 0,
@@ -8502,7 +8507,7 @@ var $rtfeldman$elm_css$Css$rgb = F3(
 		return {
 			av: 1,
 			ax: b,
-			x: 0,
+			y: 0,
 			aA: g,
 			aF: r,
 			C: A2(
@@ -9339,7 +9344,7 @@ var $author$project$Main$viewResult = function (data) {
 	if (_v0 === '') {
 		return $rtfeldman$elm_css$Html$Styled$text('');
 	} else {
-		var prStr = $elm$core$String$fromInt(data.B);
+		var prStr = $elm$core$String$fromInt(data.w);
 		return A2(
 			$rtfeldman$elm_css$Html$Styled$table,
 			_List_Nil,
@@ -9396,14 +9401,29 @@ var $author$project$Main$viewResult = function (data) {
 				]));
 	}
 };
+var $author$project$Main$SearchPR = function (a) {
+	return {$: 1, a: a};
+};
 var $rtfeldman$elm_css$Html$Styled$ol = $rtfeldman$elm_css$Html$Styled$node('ol');
 var $author$project$Main$viewSearch = function (search) {
-	var prStr = $elm$core$String$fromInt(search.B);
+	var prStr = $elm$core$String$fromInt(search.w);
 	return A2(
 		$rtfeldman$elm_css$Html$Styled$ol,
 		_List_Nil,
 		_List_fromArray(
 			[
+				A2(
+				$rtfeldman$elm_css$Html$Styled$span,
+				_List_fromArray(
+					[
+						A2($rtfeldman$elm_css$Html$Styled$Attributes$style, 'cursor', 'pointer'),
+						$rtfeldman$elm_css$Html$Styled$Events$onClick(
+						$author$project$Main$SearchPR(search.w))
+					]),
+				_List_fromArray(
+					[
+						$rtfeldman$elm_css$Html$Styled$text('⟳')
+					])),
 				$rtfeldman$elm_css$Html$Styled$text(prStr),
 				$rtfeldman$elm_css$Html$Styled$text(': ' + search.L),
 				A2(
@@ -9442,23 +9462,6 @@ var $author$project$Main$viewSearch = function (search) {
 									[
 										$rtfeldman$elm_css$Html$Styled$text('json')
 									]))
-							])),
-						A2(
-						$rtfeldman$elm_css$Html$Styled$li,
-						_List_Nil,
-						_List_fromArray(
-							[
-								A2(
-								$rtfeldman$elm_css$Html$Styled$a,
-								_List_fromArray(
-									[
-										$rtfeldman$elm_css$Html$Styled$Events$onClick(
-										$author$project$Main$SetPR(prStr))
-									]),
-								_List_fromArray(
-									[
-										$rtfeldman$elm_css$Html$Styled$text('Refresh')
-									]))
 							]))
 					]))
 			]));
@@ -9470,7 +9473,7 @@ var $author$project$Main$viewSearches = function (searches) {
 		A2($elm$core$List$map, $author$project$Main$viewSearch, searches));
 };
 var $author$project$Main$viewValidation = function (model) {
-	var _v0 = model.B;
+	var _v0 = model.w;
 	if (!_v0) {
 		return true;
 	} else {
@@ -9556,7 +9559,7 @@ var $author$project$Main$view = function (model) {
 										]))
 								])),
 							function () {
-							var _v0 = model.y;
+							var _v0 = model.z;
 							if (_v0 === '') {
 								return $rtfeldman$elm_css$Html$Styled$text('');
 							} else {
@@ -9568,7 +9571,7 @@ var $author$project$Main$view = function (model) {
 										]),
 									_List_fromArray(
 										[
-											$rtfeldman$elm_css$Html$Styled$text(model.y)
+											$rtfeldman$elm_css$Html$Styled$text(model.z)
 										]));
 							}
 						}(),
diff --git a/src/Main.elm b/src/Main.elm
index e37a22b..229d8a6 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -4,7 +4,7 @@ import Browser exposing (Document)
 import Css exposing (..)
 import Css.Animations exposing (keyframes)
 import Html.Styled exposing (..)
-import Html.Styled.Attributes exposing (css, href, placeholder, style)
+import Html.Styled.Attributes exposing (class, css, href, placeholder, style)
 import Html.Styled.Events exposing (onClick, onInput)
 import Http exposing (..)
 import Json.Decode as Decode exposing (Decoder, field, list, map2, map7, string)
@@ -23,6 +23,7 @@ type WorkAction
 
 type Msg
     = RunSearch
+    | SearchPR Int
     | GotResult (Result Http.Error Model)
     | GCResult (Result Http.Error WorkStatus)
     | GotSearches (Result Http.Error Searches)
@@ -104,7 +105,7 @@ update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
     case msg of
         RunSearch ->
-            ( loadingModel, getResult model )
+            ( loadingModel, getResult model.pull_request )
 
         GotResult (Err err) ->
             ( { model | error = "Error: " ++ httpErr err, loading = False }, Cmd.none )
@@ -143,6 +144,9 @@ update msg model =
             , Cmd.none
             )
 
+        SearchPR pr ->
+            ( loadingModel, getResult pr )
+
         CollectGarbage ->
             ( loadingModel, getGC )
 
@@ -265,12 +269,12 @@ viewSearch search =
             String.fromInt search.pull_request
     in
     ol []
-        [ text prStr
+        [ span [ style "cursor" "pointer", onClick (SearchPR search.pull_request) ] [ text "⟳" ]
+        , text prStr
         , text (": " ++ search.title)
         , ul []
             [ li [] [ a [ href ("https://github.com/NixOS/nixpkgs/pull/" ++ prStr) ] [ text "nixpkgs" ] ]
             , li [] [ a [ href ("/" ++ prStr) ] [ text "json" ] ]
-            , li [] [ a [ onClick (SetPR prStr) ] [ text "Refresh" ] ]
             ]
         ]
 
@@ -365,10 +369,10 @@ makeRow title data =
         ]
 
 
-getResult : Model -> Cmd Msg
-getResult model =
+getResult : Int -> Cmd Msg
+getResult pr =
     Http.get
-        { url = "/" ++ String.fromInt model.pull_request
+        { url = "/" ++ String.fromInt pr
         , expect = Http.expectJson GotResult resultDecoder
         }